; ORIGINAL: 3dt2.1/examples/zoom10.scm
; $Id: zoom10.scm,v 1.4 1997/04/30 20:24:26 jread Exp $
;- zoom10.scm ----------------------------------------------------
; Define procedures to zoom in and zoom out. Slow the process
; down to a visually appealing rate with system:sleep.
;------------------------------------------------------------------
(define zoomin
  (lambda (view-name)
    (do ((i 0 (+ i 1))) ((= i 10))
      (begin
        (view:set-size
           (* (view:width view-name) 0.9)
           (* (view:height view-name) 0.9) view-name)
        (view:refresh view-name)
        (system:sleep 50)))))

(define zoomout
  (lambda (view-name)
    (do ((i 0 (+ i 1))) ((= i 10))
      (begin
        (view:set-size
          (* (view:width view-name) 1.1)
          (* (view:height view-name) 1.1) view-name)
        (view:refresh view-name)
        (system:sleep 50)))))

